UNIVERSAL WINDOW TIMES 
JANUARY 1978 thru DECEMBER 1978 

A FORTRAN IV COMPUTER 
PROGRAM FOR MOON TRACKING 



AS-49-19 


4158 


DIVISION OF VARIAN 

301 Industrial Way 
San Carlos, California 



The following Universal Window times are based on the new 
specifications outlined in AS- 19- 12. The moon is always at a 

north, or positive, declination during the European Universal 
Window. The start of the window is two hours from the setting 
moon time in Frankfurt, Germany. The end of the window is 
when the moon sets at this same location. The level of activity 
in any of the windows will depend upon how reasonable the time of 
the day is. Early hours in the morning on working days will not 
be too attractive to many operators. The last hour of the window 
will be the most popular time for those stations with antennas 
pointing toward the horizon. 

The times were calculated in two minute increments; therefore, 
there can be up to a plus or minus two minute error. 

Also included are the times each month for the new moon. 

During the summer months the moon and sun appear to be in the same 
place in the sky. The sun noise can therefore mask any moonbounce 
signals. At least one day can be lost, and perhaps more, depend- 
ing upon the directivity of the antenna arrays at both ends of the 
path. 
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1978 

New Moon 

Perigee 

Apogee 

January 

9 

8 

21 

February 

7 

5 

17 

March 

9 

5,31 

17 

April 

7 

26 

14 

May 

7 

24 

12 

June 

5 

21 

8 

July 

5 

19 

5 

August 

4 

17 

2,29 

September 

2 

14 

26 

October 

2,31 

11 

24 

November 

30 

5 

20 

December 

29 

2,30 

18 
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JANUARY-1978 

FEBRUARY-1978 

MARCH- 

■1978 

Day 

GMT 

Day 

GMT 

Day 

GMT 

1 

0825-1025 

10 

1820-2020 

10 

1708-1908 

14 

2042-2242 

11 

1930-2130 

11 

1817-2017 

15 

2148-2348 

12 

2037-2237 

12 

1923-2123 

16-17 

2252-0052 

13 

2141-2341 

13 

2027-2227 

18 

2354-0154 

14-15 

2240-0040 

14 

2126-2326 

19 

0052-0252 

16 

2336-0136 

15-16 

2221-0021 

20 

0146-0346 

17 

0028-0228 

16-17 

2310-0110 

21 

0236-0436 

18 

0116-0316 

17-18 

2355-0155 

22 

0322-0522 

19 

0200-0400 

19 

0034-0234 

23 

0402-0602 

20 

0236-0436 

20 

0109-0309 

24 

0438-0638 

21 

0310-0510 

21 

0141-0341 

25 

0510-0710 

22 

0342-0542 

22 

0210-0410 

26 

0538-0738 

23 

0410-0610 

23 

0238-0438 

27 

28 

0606-0806 

0632-0832 

24 

0436-0636 

24 

0305-0505 


APRIL- 

•1978 

MAY- 1978 

JUNE- 

■1978 

Day 


Day 

GMT 

Day 

GMT 

6 

1448-1648 

3 

1236-1436 

1 

1244-1444 

7 

1558-1758 

4 

1344-1544 

2 

1348-1548 

8 

1706-1906 

5 

1452-1652 

3 

1452-1652 

9 

1810-2010 

6 

1558-1758 

4 

1552-1752 

10 

1912-2112 

7 

1700-1900 

5 

1649-1849 

11 

2010-2210 

8 

1800-2000 

6 

1740-1940 

12 

2102-2302 

9 

1854-2054 

7 

1826-2026 

13 

2149-2349 

10 

1944-2144 

8 

1907-2107 

14-15 

2231-0031 

11 

2028-2228 

9 

1942-2142 

15-16 

2307-0107 

12 

2106-2306 

10 

2014-2214 

16-17 

2340-0140 

13 

2140-2340 

11 

2042-2242 

18 

0010-0210 

14-15 

2210-0010 

12 

2108-2308 

19 

0038-0238 

15-16 

2238-0038 

13 

2134-2334 

20 

0104-0304 

16-17 

2304-0104 

27 

0926-1126 



17-18 

2331-0131 

28 

1034-1234 



31 

1136-1336 

29 

1141-1341 





30 

1244-1444 
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JULY-1978 

AUGUST-1978 

SEPTEMBER-1978 

Day 

GMT 

Day 

GMT 

Day 

GMT 

1 

1345-1545 

1 

1506-1706 

1 

1521-1721 

2 

1442-1642 

2 

1544-1744 

2 

1548-1748 

3 

1536-1736 

3 

1620-1820 

3 

1614-1814 

4 

1624-1824 

4 

1651-1851 

18 

0448-0648 

5 

1707-1907 

5 

1718-1918 

19 

0600-0800 

6 

1744-1944 

6 

1744-1944 

20 

0708-0908 

7 

1818-2018 

7 

1810-2010 

21 

0814-1014 

8 

1847-2047 

21 

0559-0759 

22 

0914-1114 

9 

1914-2114 

22 

0712-0912 

23 

1010-1210 

10 

1939-2139 

23 

0821-1021 

24 

1058-1258 

25 

0822-1022 

24 

0927-1127 

25 

1142-1342 

26 

0930-1130 

25 

1028-1228 

26 

1220-1420 

27 

1036-1236 

26 

1125-1325 

27 

1254-1454 

28 

1138-1338 

27 

1216-1416 

28 

1323-1523 

29 

1237-1437 

28 

1303-1503 

29 

1351-1551 

30 

1332-1532 

29 

1344-1544 

30 

1418-1618 

31 

1421-1621 

30 

1420-1620 





31 

1452-1652 



OCTOBER-1978 

NOVEMBER-1978 

DECEMBER-1978 

Day 

GMT 

Day 

GMT 

Day 

GMT 

15 

0224-0424 

11 

0010-0210 

9 

2312-0112 

16 

0338-0538 

12 

0122-0322 

10 

0021-0221 

17 

0448-0648 

13 

0232-0432 

11 

0128-0328 

18 

0556-0756 

14 

0340-0540 

12 

0234-0434 

19 

0700-0900 

15 

0444-0644 

13 

0336-0536 

20 

0758-0958 

16 

0546-0746 

14 

0433-0633 

21 

0850-1050 

17 

0642-0842 

15 

0526-0726 

22 

0938-1138 

18 

0732-0932 

16 

0612-0812 

23 

1018-1218 

19 

0814-1014 

17 

0652-0852 

24 

1052-1252 

20 

0852-1052 

18 

0726-0926 

25 

1124-1324 

21 

0924-1124 

19 

0757-0957 

26 

1152-1352 

22 

0954-1154 

20 

0824-1024 

27 

1219-1419 

23 

1021-1221 

21 

0850-1050 

28 

1244-1444 

24 

1046-1246 

22 

0914-1114 



A NOTE FROM STEVE POWLISHEN, K1FO (EX-WA1FFO) 


For those fortunate enough to have access to a large computer with 
a Fortran IV compiler, I present this version of Lance Col lister's pro- 
gram. I normally run it on an IBM 370/168. It works on either H or G 

compilers. On the IBM it take about 10 to 13 seconds CPU time to run 
four months with fifteen minute print outs. 

I have also run it on an Interdata 100 with an extended Fortran 
compiler. 

I developed this version from Lance Collister's original program 
and a DEC compatible Fortran version I got from Larry Blouin, K1MNS. 
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ISN 

0002 

ISN 

0003 

ISN 

0004 

ISN 

0005 

ISN 

0006 

ISN 

0007 

ISN 

0008 

ISN 

0009 

ISN 

0010 

ISN 

0011 

ISN 

0012 

ISN 

0013 

ISN 

0014 

ISN 

0015 

ISN 

0016 

ISN 

0017 

ISN 

0018 

ISN 

0019 

ISN 

0020 

ISN 

0021 

ISN 

0022 

ISN 

0024 

ISN 

0025 

ISN 

0026 

ISN 

0027 

ISN 

0028 

ISN 

0029 

ISN 

0030 

ISN 

0031 

ISN 

0032 

ISN 

0033 

ISN 

0034 

ISN 

0035 

ISN 

0036 

ISN 

0037 

ISN 

0038 

ISN 

0040 

ISN 

0041 

ISN 

0042 

ISN 

0043 

ISN 

0044 

ISN 

0045 

ISN 

0046 

ISN 

0047 

ISN 

0048 


ISN 0049 
IS N 0050 
ISN 0051 
ISH 0052 
ISN 0053 
ISN 0054 
ISN 0055 
ISN 0056 
ISN "0057 


COMPILER OPTIONS - NAME= MAIN,OPT=00 , LINECNT=58 , SIZE=0000K , 

SOURCE , BCD , NOLIST, NODECK, LOAD , MAP, NOEDIT, ID .NOXREF 
REAL HO, NEST.. 

DATA NO/'NO'/, YES/* YES'/, BLANK/' 'AUW/'UW'/ 

FNA(X)=INT(X*DEG*10.0+.5)/10.0 

FNC( X ) = ( X-INT ( X ) )*TUPI 

TUPI=2 .0*3 . 141592 _ 

RAD=TUPI/360 . 0 
DEG = 360 . 0/TUPI 
WRITE (4,601) 

_601 FORMAT („* WHAT IS LATITIJDE^IN DEG. MIN.(+FOR NORTH) ') 

READ (5,611) ULATD ,ULATM 
611 FORMAT (2F7.2) 

WRITE (4,621) 

621 FORMAT (‘ WHAT IS LOGITUDE IN DE G. M IN. (+ F OR WEST ) ) 

READ (5,611 ) ULONDt ULONM 
ULATD = ( ULATD+ULATM/60 . 0 )*RAD 
ULOND = ( ULOND+ULONM/60 . 0 )*RAD 

WRITE (4,631) _ 

631 FORMAT (”' DO YOU WANT PRINTOUT ONLY NEAR HORIZON ? ' ) 

READ (5,632) ANSI 

632 FORMAT (A3) 

__ _ IF ( ANSI . EQ . NO ) GO TO 637 __ 

634 ' FORMAT" ( ’ BE LOW WHAT ELEV. DO YOU WANT PRINTOUT ? ’") ' 

READ (5,635) BELEV 

635 FORMAT (F6.2) 

GO TO 638 

637 BELEV = 100.0 ' " 

638 WRITE (4,639) 

639 FORMAT (' DO YOU WANT PRINTOUT ONLY DURING NORTH DEC.? * ) 

_ READ (5,632) ANS2 _ 

WRITE (4,640 ) 

640 FORMAT (' DO YOU WANT PRINTOUT ONLY DURING UNIV. WINDOW? ' ) 
READ (5,632) ANS3 

WRITE J 4,641) 

641 FORMAT (' DO YOU WANT PRINTOUT ONLY DURING SPECIFIC TIME? 7 
READ (5,632) ANS4 

IF ( ANS4.EQ.N0 ) GO TO 650 
WRITE (4,646) 

646 FORMAT ( ' WHAT APE f HE GMT BEGINNING & ‘ ENDING 'TIMES'"? * "j" 
READ (5,648) B1,E 
648 FORMAT (2F5.0) 

GO TO 660 

650 Bl=0060.6 " 

E=2400 . 0 

660 WRITE (4,661) 

661 FORMAT ( ' WHAT IS THE DESIRED PRINTOUT IN MINUTES ? ' ) 

RFAD“TS',«63)'"DiNC 

663 FORMAT (F4.0) 

WRITE (4,664) 

664 FORMAT (' HOW MANY ESTIMATED POSITIONS BETWEEN CALC.? ') 

READ (5,66 3T NEST " ' 

WRITE (4,666) 

666 FORMAT (' WHAT IS BEGINNING DATE ( MM ,DD , YYYY ) ? ') 

READ (5,668) AMI , ADI , AY1 

6'6‘B'T‘ORMAT" ( 2F3".ff,F5 : (H 
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ISN 0058 
ISN 0059 
ISNJD060 __ 
ISN 0061 
ISN 0062 
ISN 0063 
ISN .006*+ 

ISN 0065 

ISN 0066 
ISN 0067 
ISN. 0068 .... 
ISN 0069 
ISN 0070 

ISN 0071 

ISN 0072 

ISN 0073 

ISN 0074 


ISN 0075 
ISN 0076 
ISN 0077 
" ISN 0078 
ISN 0079 
ISN 0080 
ISN 0081 
"ISN 0082 " 
ISN 0083 
ISN 0084 
ISN 0085 
ISN 0 086 ' 
ISN 0087 


ISN 0088 
ISN 0089 


ISN 0090 
ISN 0091 
ISN 0092 

ISN 0093 

ISN 0095 
ISN 0096 
ISN 0098 
IsN 0 099 — 

ISN 0100 
ISN 0101 

~~ ISN 0102 

ISN 0103 
ISN 0104 

ISN 0105 


CALL JULIAN ( AMI, ADI, AY1,BJUL) 

WRITE (4,671) 

__ 671 FORMAT (' WHATJS ENDING DATE„(MM,DD ,YYYY )? M 
READ (5,668) EM > ED » EY 
CALL JULIAN ( EM, ED , EY , E JUL ) 

WRITE (6,672) 

678 FORMAT (1H1) 

' "DATEJ=BJUL 

680 CONTINUE 
F LAG1=2 . 0 

_ B=B1 __ _ __ 

T i = DAT E J - 1 74 7 2 . 5 

1000 DIF1 = ( ( B-INT( B/100 . 0 + . 5 )*100 . 0 ) + INT( B/100 . 0 + .5 )*60 . 0 ) 
l-( (E-INT( E/100. 0+. 5 )*100.0 )+INT( E/100. 0+. 5)*60. 0) 

IF (DIF1) 1060,1060,1054 

1054 IF ' (01 FI -DINC ) 1055 ,200 0,2000 

1055 B=E 

C CALCULATION OF LATTITUDE & LONGITUDE OF MOON 
1060 T=( B-INT ( B/100 . 0 )*100 . 0 )/1440 . 0+INT ( B/100 . 0 )/24. 0 

C T = FRACTION OF THE DAY ' " ~ “ 

IF (FLAG1-2.0) 1070,1200,1200 
1070 IF ( FLAG2-NEST ) 1080,1200,1200 
1080 FLAG2 = FLAG2 +1.0 

GHA = GHr* 74i645E-2^DINC 

GO TO 1515 
1200 FLAG2 =0.0 
T5= Tl+T 

D 1=FNC (7751213*. 036'60ii*T5) * 

D2 = FNC( .822513+ . 0362916*T5 ) 

D3=FNC( . 995766+ . 00273778*T5 ) 

D4=FNC( .974271+ . 03386 32#T5 ) 

D5=FNC ( . 031 2525^1) 36 74819*f5 f“ 

D L0N=D1 + . 658*RAD#SIN( 2 . 0*D4 ) +6 . 289*RAD*SIN( D2 ) 

1-1 . 274#RAD*SIN( D2-2 . 0*D4 )- . 186*RAD*SIN( D3 ) 

2+ . 214*RAD*SIN( 2 . 0*D2 )- . 114*RAD*SIN( 2 . 0*D5 ) 

3- . 05 9 # R AD * S IN ( 2". 0*02-2 . '6*D4')-7657*RAD*SIN('D2+D3-2 . 0*D4 ) 

S=D5+ . 6593#RAD*SIN( 2 . 0*D4 ) +6 . 2303#RAD*SIN( D2 ) 

1-1 . 272#RAD*SIN( D2-2 . 0*D4 ) 

D LAT =5 . 144*RAD#SIN( S )- . 146*RAD*SIN( D5-2 . 0*D4 ) 

C CALCULATION OF RIGHT ASCENSION AND DEC LiNATiON 

DEC1=C0S( DLAT )*SIN( DLON )*. 397821 + SIN( DLAT )*. 917463 
DEC2=ABS( DEC1 ) 

DEC=ATAN2 ( DEC1 , ( SQRT( 1.0-DEC2#*2.0) ) ) 

~ IF" (TO EC . Lt " 0 .0 )". AND : ( ANS27 eS: YES ) )'"g6“T0" 206 0 

RAC =COS( DLAT )*COS( DLON )/COS( DEC) 

IF ( ( ( DEC*DEG ) . LT . 12 . 0 ) . AND . ( ANS3.EQ. YES ) ) GO TO 2000 
RAS=( COS ( DLAT )*SIN( DLON )#. 91 746 3-SIN ( DLAT )*. 397821 )/COS( DEC ) 

~RA'=‘‘ATAN2iRAS,RAt') — “ 

IF (RA) 1500,1510,1510 
1500 RA = TUPI + RA 

C CALCULATION OF LOCAL SIDEREAL TIME 

1510 DL'ST ='■ .6657696*11 ™ “ 

DLST=T*24. 0*1 . 002738+6 .646055+( D LST-INT( DLST/24. 0 )*24. 0 ) 
DLST=( DLST-INT ( D LST/24. 0 )*24. 0 ) 

C CALCULATION OF GHA FROM LOCAL SIDEREAL TIME 
GHA=(DLST/24:67«TUPI-RA~" — 
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ISN 0106 1515 IF (GHA) 1520,1530,1530 

ISN 0107 1520 GHA=GHA+TUPI 

ISNJD108 __ 1530 IF (GHA-TUPI) 1550,1550,1540 

ISN 0109 1540 GHA=GHA-TUPI 

ISN 0110 1550 IF( ( ( (DEC*DEG). GE. (0.00)). AND. (CDEC*DEG). GE. ( .642857*GHA 

l*DEG-49. 75 ) ) ) .AND . ( ( ( DEC*DEG ) . LE . ( 24 .5 ) ) . AND . ( ( DEC*DEG ) . LE. 

2 ( . 642857*GHA*DEG -33 . 11 ) ) ) ) GO TO 1555 

ISN 0112 SPAC2 =B LANK ~ ~ 

ISN 0113 IF ( ANS3 .EQ. YES) GO TO 1800 

ISN 0115 GO TO 1565 

_ISN 0116 1555 SPAC2=UW _ __ 

' C CALCULATION OF AZMUTH AND ELEVATION 

ISN 0117 1565 UHA = ULOND-GHA 

ISN 0118 ELSIN=COS( ULATD )*COS( UHA )#COS( DEC )+SIN( DEC )#SIN( ULATD ) 

ISN 0119 ELCOS =_SQRT(1.0-(ABS(ELSIN)**2.0) ) 

ISN 03.20 EL = ATAN2 ( ( E LSiN— ( 1 . 0/61 . 33 ) ) , ELCOS) 

ISN 0121 FEL = ATAN2(ELSIN, ELCOS) 

ISN 0122 IF (EL) 1800,1566,1566 

ISN 0123 _ 1566 IF ( EL*DEG-BELEV ) 1567,1567,1800 

ISN 0 124 156 7 " AZCOS=SIN ( DEC )/( COS ( ULATD ) #COS( FEL )') 

1- ( SIN( ULATD )/COS( ULATD ) )#( SIN( FEL )/COS( FEL)) 

ISN 0125 AZSIN=SIN( ULATD )*SIN( DEC )+COS( ULATD )#COS( DEC )#COS( UHA ) 

ISN 0126 _ AZSIN=( SIN ( UHA )*COS( DEC ) )/SQRT ( 1 . 0-( ABS( AZSIN ) )*#2 . 0 ) 

'ISN 0127” AZ=ATAN2( AZSIN, AZCOS) ~ 

ISN 0123 IF (AZ) 1568,1568,1580 

ISN 0129 1568 AZ=AZ+TUPI 

ISN 0130 1560 IF (FLAG1-2.0) 1600,1585,1585 

ISN 0131 ' 1585 I AMI = I NT ( AMI ) 

ISN 0132 IAD1=INT( ADI ) 

ISN 0133 IAY1=INT( AY1 ) 

ISN 0134 __ _ IAY1=IAY1-1900 

ISN" 01 35 WRiTE ( 6,1587 ) IAMI » IAD lVlAYl 

ISN 0136 1587 FORMAT ( '1 ' ,T2,I2, V',12, ,12, • GMT 1 ,T18 ,* AZIMUTH 1 ,T32 , 


2J — 1 ,T32 , ’ ' ,T48, • • ,T61, ' ’ ) 

ISN 0137 1600 IF U T-FLAG1 )-( 2 /0*DINC )/144076 ri'620 ,1615,' 1615 “ "" * 

ISN 0138 1615 WRITE (6,1616) 

ISN 0139 1616 FORMAT (1H ) 

ISN 0140 1620 NB=INT( B*10 . 0+ .5 )/10 

ISN 0141 1650 AZP = FNA( AZ j 

ISN 0142 ELP = FNA(EL) 

ISN 0143 GHAP= FNA(GHA) 

ISN 0144 DECP= FNA(DEC) 

isN' 0145 rrme.'gE.Tooai m to 

ISN 0147 IF (NB.GE.100) GO TO 1630 

ISN 0149 IF (NB.GE.10) GO TO 1635 

ISN 0151 IF (NB.GE.l) GO to 1640 

”1SN 0153 WRITT T'6', 162X1 'S'PaC 2‘, AZP, TIP’, GRAPVtJECF 

ISN 0154 1621 FORMAT ( 1H , T5, 1 0000 ■ ,T11 , A2 ,T18 , F6 . 1 ,T34, F5. 1 ,T48, F6. 1 ,T64, F5. 1 ) 

ISN 0155 GO TO 1680 

ISN 0156 1625 WRITE (6,1626) NB ,SPAC2 , AZP , ELP.GHAP, DECP 

ISN 0157 "• 1626'TORMAT' ( IH ',T5,l4r Til , A2 ,Tl8,F6:i ,T34,T5.I , T48',F6TI ,T64,T57T )~ 

ISN 0158 GO TO 1680 

ISN 0159 1630 WRITE (6,1631) NB,SPAC2, AZP, ELP, GHAP, DECP 

ISN 0160 1631 FORMAT ( IH ,T5, ' 0 ' , 1 3, Til , A2 , T16, F6 . 1 ,T34, F5. 1 ,T48, F6 . 1 ,T64,F5. 1 ) 

ISN' 0161 GO“TO' T68U 
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ISM 0162 1635 WRITE (6,1636) NB,SPAC2 ,AZP, ELP ,GHAP,DECP 

ISN 0163 1636 FORMAT ( 1H ,T5 , ' 00 ' , 12 ,T11 , A2 ,T18, F6 . 1 , T34, F5.1 ,T48 ,F6 . 1 ,T64, F5. 1 ) 

ISN 0164 GO TOJL680 _ __ _ _ 

* ISN 0165 ' 1640 WRITE ( 6 , 1641 ) NB, SPACE ,AZP, ELP ,GHAP , DECP 

ISN 0166 1641 FORMAT ( 1H»T5, '000' , II »T11 » A2 »T18, F6 . 1 ,T34, F5. 1,T48, F6 .1 >T64> F5. 1 ) 

ISN 0167 1680 FLAG1=T 

ISN 0168 1800 B=INT( ( B+DINC )*1000 . 0+^5 )/1000.0 

isn 0169 ~ z=f( b-Fnt'( b/ioo" o )*i6o . o 'i'-So . o) “ 

ISN 0170 IF (Z) 1000,1820,1820 

ISN 0171 1820 B=INT( B/ 100 . 0 )*100 . 0+100 . 0+Z 

__ISN 0172 GO_T0.1000 ..._ _ __ 

ISN 0173 '2000 CALL DATE ( AMI , ADI , AY1 , AMi , AD i » AY1 ) 

ISN 0174 D ATE J=INT( DATE J*I0 . 0+ .5 )/10 . 0 

ISN 0175 DATEJ=DATEJ+1 

ISN 0176_ IF ( DATE J . LE . EJUL )GO TO 680 

ISN 0178 2100 CONTINUE 

ISN 0179 STOP 

ISN 0180 END 


COMPILER OPTIONS - NAME= MAIN,OPT=00 , LINECNT=58,SIZE=0000K, 

SOURCE, BCD, NOLIST, NODECK, LOAD, MAP, NOEDIT, ID, NOXREF 

ISNJ3002 __ ^SUBROUTINE JULIAN* AMj AD. r AY, GATE J.)... _ _ __ 

C CALCULATES JULIAN DATE MINUS 2397547.5 FOR ZERO HOURS GMT 
ISN 0003 IF ( (AY-1853. 0)/4. 0-11.0) 8050,8030,8030 

ISN 0004 8030 Cl =-1.0 

ISN 0005 GO_JO 8060 __ 

ISN" 0006' 8050 Cl =6.6 

ISN 0007 8060 IF (AM-9.0) 8070,8100,8070 

ISN 0008 8070 IF (AM-11.0) 8080,8100,8080 

...ISN. 000? J30 80 C2_ = 0 .0 

ISN 0010 GO TO 8110 

ISN 0011 8100 C2 = 1.0 

ISN 0012 8110 IF (AM-3.0) 8120,8150,8150 

ISN 0013 8120. DATEJ=365. 0*( AY-1853. 0 )+AD+30_. 0»( AM+9. 0 )+INT( ( AMUO . OJ/2. OJ 

1+INT ( ( AY-1853 .0 )/4 . 6 j +1 . 0+Cl 
ISN 0014 GO TO 8170 

ISN 0015 8150 DATEJ=365. 0*( AY-1852 . 0 )+AD+30 . 0*( AM-3. 0 )+INT( ( AM-2 . 0 )/2 . 0 ) 

1+INT( (AY-1852.0 )/4;,0)+Cl+C2 

ISN 0016 ” ” 8170' CONTINUE " 

ISN 0017 RETURN 

ISN 0018 END 


COMPILER OPTIONS - NAME= MAIN,OPT=00 , LINECNT=58,SIZE=0000K, 


SOURCE, BCD, NOLIST, NODECK, LOAD, MAP, NOEDIT, ID, NOXREF 

ISNJ000.2 SUBROUTINE DATE ( AM1,AD1,AY1 ,DM1 .DDl.DYl ) __ 

C INCREMENTS DAY AND CORRECTS FOR MONTH AND YEAR 
ISN 0003 IF (ADI-28.0) 8480,8330,8330 

ISN 0004 8330 IF (AMI-2.0) 8380,8340,8380 

ISN 0005 8340 IF.J.400 J)*INT( AY1/400 . (H-AY1 ) 8350,8370,8350 __ 

"'"ISN 0006 8350 IF ( 100 . 0*INT( AYl/i66 . 0 )-AYl ) 8360,8456,8360 

ISN 0007 8360 IF ( 4. 0*INT( AY1/4. 0 )-AYl ) 8450,8370,8450 

ISN 0008 8370 IF (ADI-29.0) 8480,8450,8450 

_ISN 0009 _ J380 IF_(AD1-30.0)_8480, 8.3 9.0^8430 . 

ISN 0010 8390 IF (AM1-4.0) 8400,8450,8400 

ISN 0011 8400 IF (AMI-6.0) 8410,8450,8410 

ISN 0012 6410 IF (AMI-9.0) 8420,8450,8420 

ISN 0013 8420 IF JAMljll ._0J, 8480 , 8450 ,8480 

ISN 0014” 8430 IF ( AMI -12 76 ) 8450 ,8440 ,8450 

ISN 0015 8440 AY1 = INK ( AY1+1 . 0 )«100 . 0+ .5 )/100 . 0 

ISN 0016 AMI = 0.0 

ISN 0017 ___8450_DD1 = 1.0_ __ _ _ 

‘ ISN 6618 D Ml™ = AM1+ 1.6 

ISN 0019 GO TO 8500 

ISN 0020 8480 DD1 = AD1+1.0 

ISN 0021 DM1 = AMI 

ISN 0022 " 8500 DY1'= AY1 

ISN 0023 RETURN 

ISN 0024 END 
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WHAT "IS ''LATITUDE IN DEG 1" MINl t +FOR NORTH ) 

WHAT IS LOGITUDE IN DEG. MIN.UFOR WEST) 

DO YOU WANT PRINTOUT ONLY NEAR HORIZON ? 

DO YOU_ WANT PRINTOUT ONLY DURING NORTH DEC.? 

DO YOU WANT PRINTOUT ONLY" DURING UNIV. WINDOW? " 
DO YOU WANT PRINTOUT ONLY DURING SPECIFIC TIME? 
WHAT IS THE DESIRED PRINTOUT IN MINUTES ? 

HOW .MANY ESTI MAT ED POSITIONS BET WEEN CALC.? 

WHAT IS BEGINNING DATE (MM,DD, YYYY)? 

WHAT IS ENDING DATE ( MM.DD , YYYY )? 


) 


5/ 1/77 GMT 

AZIMUTH 

ELEVATION 

GHA 

DECLINATION 

0000 

133.1 

32.3 

34.7 

-3.5 

0015 

136.8 

34.2 

38.3 

-3.5 

0030 

140.8 

36.0 

42.0 

-3.6 

0045 

144.8 

37.6 

45.5 

-3.6 

0100 

149.1 

39.0 

49.2 

-3.7 

0115 

153.5 

40.3 

52.8 

-3.7 

0130 

158.2 

41.4 

56.5 

-3.8 

0145 

162.9 

42.3 

60.0 

-3.8 

0200 

167.8 

42.9 

63.7 

-3.9 

0215 

172.7 

43.3 

67.3 

-3.9 

0230 

177.8 

43.4 

70.9 

-4.0 

0245 

182.8 

43.4 

74.5 

-4.6 

0300 

187.7 

43.1 

78.1 

-4.1 

0315 

192.6 

42.6 

81.7 

-4.1 

0330 

197.5 

41.8 

85.3 

-4.2 

0345 

202.1 

40.9 

88.9 

-4.2 

0400 

206.7 

39.6 

92.6 

-4.3 

0415 

211.0 

38.3 

96.2 

-4.3 

0430 

215.2 

36.7 

99.8 

-4.3 

0445 

219.2 

35.1 

103.4 

-4.3 ~~ 

0500 

223.0 

33.2 

107.1 

-4.4 

0515 

226.6 

31.3 

110.6 

-4.4 

0530 

230.1 

29.2 

114.3 

-4.5 

0545 

233.4 

27.1 

117.9 

-4.5 

0600 

236.6 

24.8 

121.5 

-4.6 

0615 

239.6 

22.5 

125.1 

-4.6 

0630 

242.5 

20.0 

128.8 

-4.7 

'" 0645 

245.3 

17.6 

“ "~ 132.4 

""-4.7 '“ “■ 

0700 

248.0 

15.0 

136.0 

-4.8 

0715 

250.7 

12.5 

139.6 

-4.8 

0730 

253.2 

9.8 

143.3 

-4.9 

0745 

255.7 

7.5 

146.8 

-4.9 

0800 

258.1 

4.6 

150.4 

-5.0 

0815 

260.5 

2.0 

154.0 

-5.0 

2200 

“"io'2.r 

l.F- 

352. S" ' 

— •••• 

2215 

105.0 

4.1 

356.4 

-7.6 

2230 

107.6 

6.7 

0.0 

-7.7 

2245 

110.1 

9.2 

3.6 

-7.7 

2300 

112.8 

11 . 7 

7.3 ~ 

-7.8 

2315 

115.5 

14.1 

10.8 

-7.8 

2330 

118.3 

16.5 

14.5 

-7.9 

2345 

121.2 

18.8 

18.1 

-7.9 

•"2400 ” 

" 12472 ~ 

2170 • ~ ' 

2175 

-81YS “ — 
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